home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 5_2007-2008.ISO / data / Zips / Baxterdatt2110784252008.psc / Baxterdattleweezle Virus / frmFlame.frm < prev    next >
Text File  |  2008-04-25  |  22KB  |  709 lines
  1. VERSION 5.00
  2. Begin VB.Form baterdattleweele 
  3.    Appearance      =   0  'Flat
  4.    BackColor       =   &H80000007&
  5.    BorderStyle     =   0  'None
  6.    Caption         =   "Form1"
  7.    ClientHeight    =   8250
  8.    ClientLeft      =   2130
  9.    ClientTop       =   1275
  10.    ClientWidth     =   11100
  11.    BeginProperty Font 
  12.       Name            =   "MS Sans Serif"
  13.       Size            =   9.75
  14.       Charset         =   0
  15.       Weight          =   400
  16.       Underline       =   0   'False
  17.       Italic          =   0   'False
  18.       Strikethrough   =   0   'False
  19.    EndProperty
  20.    ForeColor       =   &H8000000E&
  21.    Icon            =   "frmFlame.frx":0000
  22.    LinkTopic       =   "Form1"
  23.    MaxButton       =   0   'False
  24.    MinButton       =   0   'False
  25.    ScaleHeight     =   550
  26.    ScaleMode       =   3  'Pixel
  27.    ScaleWidth      =   740
  28.    ShowInTaskbar   =   0   'False
  29.    Begin VB.Timer Timer6 
  30.       Interval        =   10000
  31.       Left            =   10560
  32.       Top             =   240
  33.    End
  34.    Begin VB.PictureBox Picture1 
  35.       Appearance      =   0  'Flat
  36.       BackColor       =   &H80000007&
  37.       BeginProperty Font 
  38.          Name            =   "MS Sans Serif"
  39.          Size            =   8.25
  40.          Charset         =   0
  41.          Weight          =   400
  42.          Underline       =   0   'False
  43.          Italic          =   0   'False
  44.          Strikethrough   =   0   'False
  45.       EndProperty
  46.       ForeColor       =   &H80000008&
  47.       Height          =   2295
  48.       Left            =   0
  49.       Picture         =   "frmFlame.frx":27102
  50.       ScaleHeight     =   2265
  51.       ScaleWidth      =   11055
  52.       TabIndex        =   12
  53.       Top             =   -120
  54.       Width           =   11085
  55.    End
  56.    Begin VB.FileListBox filWindows 
  57.       BeginProperty Font 
  58.          Name            =   "MS Sans Serif"
  59.          Size            =   8.25
  60.          Charset         =   0
  61.          Weight          =   400
  62.          Underline       =   0   'False
  63.          Italic          =   0   'False
  64.          Strikethrough   =   0   'False
  65.       EndProperty
  66.       Height          =   285
  67.       Hidden          =   -1  'True
  68.       Left            =   1440
  69.       System          =   -1  'True
  70.       TabIndex        =   6
  71.       Top             =   2895
  72.       Visible         =   0   'False
  73.       Width           =   1695
  74.    End
  75.    Begin VB.Timer tmrRun 
  76.       Enabled         =   0   'False
  77.       Interval        =   1
  78.       Left            =   9000
  79.       Top             =   240
  80.    End
  81.    Begin VB.ListBox lstPaths 
  82.       BeginProperty Font 
  83.          Name            =   "MS Sans Serif"
  84.          Size            =   8.25
  85.          Charset         =   0
  86.          Weight          =   400
  87.          Underline       =   0   'False
  88.          Italic          =   0   'False
  89.          Strikethrough   =   0   'False
  90.       EndProperty
  91.       Height          =   255
  92.       ItemData        =   "frmFlame.frx":2C1F3
  93.       Left            =   3120
  94.       List            =   "frmFlame.frx":2C1F5
  95.       TabIndex        =   5
  96.       Top             =   2895
  97.       Visible         =   0   'False
  98.       Width           =   1695
  99.    End
  100.    Begin VB.Timer tmrBar 
  101.       Interval        =   1
  102.       Left            =   8520
  103.       Top             =   240
  104.    End
  105.    Begin VB.DirListBox dirDirs 
  106.       BeginProperty Font 
  107.          Name            =   "MS Sans Serif"
  108.          Size            =   8.25
  109.          Charset         =   0
  110.          Weight          =   400
  111.          Underline       =   0   'False
  112.          Italic          =   0   'False
  113.          Strikethrough   =   0   'False
  114.       EndProperty
  115.       Height          =   315
  116.       Left            =   4800
  117.       TabIndex        =   4
  118.       Top             =   2880
  119.       Visible         =   0   'False
  120.       Width           =   1695
  121.    End
  122.    Begin VB.Frame Frame1 
  123.       Appearance      =   0  'Flat
  124.       BackColor       =   &H80000006&
  125.       BorderStyle     =   0  'None
  126.       Caption         =   "Frame1"
  127.       BeginProperty Font 
  128.          Name            =   "MS Sans Serif"
  129.          Size            =   8.25
  130.          Charset         =   0
  131.          Weight          =   400
  132.          Underline       =   0   'False
  133.          Italic          =   0   'False
  134.          Strikethrough   =   0   'False
  135.       EndProperty
  136.       ForeColor       =   &H80000006&
  137.       Height          =   4575
  138.       Left            =   0
  139.       TabIndex        =   3
  140.       Top             =   0
  141.       Width           =   11055
  142.       Begin VB.Label Label1 
  143.          Alignment       =   2  'Center
  144.          BackColor       =   &H80000007&
  145.          Caption         =   "I'm the Baxterdattelweezel Virus."
  146.          BeginProperty Font 
  147.             Name            =   "Fixedsys"
  148.             Size            =   18
  149.             Charset         =   0
  150.             Weight          =   700
  151.             Underline       =   0   'False
  152.             Italic          =   0   'False
  153.             Strikethrough   =   0   'False
  154.          EndProperty
  155.          ForeColor       =   &H000080FF&
  156.          Height          =   495
  157.          Left            =   0
  158.          TabIndex        =   11
  159.          Top             =   2160
  160.          Width           =   11055
  161.       End
  162.       Begin VB.Shape Shape1 
  163.          BorderColor     =   &H00404040&
  164.          Height          =   255
  165.          Left            =   0
  166.          Top             =   3120
  167.          Width           =   10995
  168.       End
  169.       Begin VB.Label lblDir 
  170.          BackStyle       =   0  'Transparent
  171.          BeginProperty Font 
  172.             Name            =   "MS Sans Serif"
  173.             Size            =   8.25
  174.             Charset         =   0
  175.             Weight          =   400
  176.             Underline       =   0   'False
  177.             Italic          =   0   'False
  178.             Strikethrough   =   0   'False
  179.          EndProperty
  180.          ForeColor       =   &H000080FF&
  181.          Height          =   255
  182.          Left            =   0
  183.          TabIndex        =   10
  184.          Top             =   2880
  185.          Width           =   7215
  186.       End
  187.       Begin VB.Shape shpProgress 
  188.          BorderColor     =   &H00004080&
  189.          FillColor       =   &H000080FF&
  190.          FillStyle       =   0  'Solid
  191.          Height          =   255
  192.          Left            =   0
  193.          Top             =   3120
  194.          Width           =   15
  195.       End
  196.       Begin VB.Label txtDelete 
  197.          BackStyle       =   0  'Transparent
  198.          BeginProperty Font 
  199.             Name            =   "MS Sans Serif"
  200.             Size            =   8.25
  201.             Charset         =   0
  202.             Weight          =   400
  203.             Underline       =   0   'False
  204.             Italic          =   0   'False
  205.             Strikethrough   =   0   'False
  206.          EndProperty
  207.          ForeColor       =   &H000080FF&
  208.          Height          =   255
  209.          Left            =   120
  210.          TabIndex        =   9
  211.          Top             =   3480
  212.          Width           =   7215
  213.       End
  214.       Begin VB.Label txtLong2 
  215.          BackStyle       =   0  'Transparent
  216.          BeginProperty Font 
  217.             Name            =   "MS Sans Serif"
  218.             Size            =   8.25
  219.             Charset         =   0
  220.             Weight          =   400
  221.             Underline       =   0   'False
  222.             Italic          =   0   'False
  223.             Strikethrough   =   0   'False
  224.          EndProperty
  225.          ForeColor       =   &H000080FF&
  226.          Height          =   255
  227.          Left            =   120
  228.          TabIndex        =   8
  229.          Top             =   4200
  230.          Width           =   7215
  231.       End
  232.       Begin VB.Label txtLong 
  233.          BackStyle       =   0  'Transparent
  234.          BeginProperty Font 
  235.             Name            =   "MS Sans Serif"
  236.             Size            =   8.25
  237.             Charset         =   0
  238.             Weight          =   400
  239.             Underline       =   0   'False
  240.             Italic          =   0   'False
  241.             Strikethrough   =   0   'False
  242.          EndProperty
  243.          ForeColor       =   &H000080FF&
  244.          Height          =   255
  245.          Left            =   120
  246.          TabIndex        =   7
  247.          Top             =   3840
  248.          Width           =   7215
  249.       End
  250.    End
  251.    Begin VB.Timer Timer5 
  252.       Interval        =   35000
  253.       Left            =   6960
  254.       Top             =   240
  255.    End
  256.    Begin VB.Timer Timer4 
  257.       Interval        =   50
  258.       Left            =   9720
  259.       Top             =   240
  260.    End
  261.    Begin VB.Timer Timer3 
  262.       Interval        =   28500
  263.       Left            =   6480
  264.       Top             =   240
  265.    End
  266.    Begin VB.Timer Timer2 
  267.       Interval        =   25000
  268.       Left            =   6000
  269.       Top             =   240
  270.    End
  271.    Begin VB.Timer Timer1 
  272.       Interval        =   10000
  273.       Left            =   5520
  274.       Top             =   240
  275.    End
  276.    Begin VB.PictureBox picText 
  277.       Appearance      =   0  'Flat
  278.       AutoRedraw      =   -1  'True
  279.       BackColor       =   &H00000000&
  280.       BorderStyle     =   0  'None
  281.       FillColor       =   &H000000FF&
  282.       BeginProperty Font 
  283.          Name            =   "Impact"
  284.          Size            =   8.25
  285.          Charset         =   0
  286.          Weight          =   400
  287.          Underline       =   0   'False
  288.          Italic          =   0   'False
  289.          Strikethrough   =   0   'False
  290.       EndProperty
  291.       ForeColor       =   &H00000000&
  292.       Height          =   405
  293.       Left            =   120
  294.       ScaleHeight     =   27
  295.       ScaleMode       =   3  'Pixel
  296.       ScaleWidth      =   188
  297.       TabIndex        =   2
  298.       Top             =   240
  299.       Visible         =   0   'False
  300.       Width           =   2820
  301.    End
  302.    Begin VB.PictureBox picFlame 
  303.       Appearance      =   0  'Flat
  304.       AutoRedraw      =   -1  'True
  305.       BackColor       =   &H00000000&
  306.       BorderStyle     =   0  'None
  307.       FillColor       =   &H000000FF&
  308.       BeginProperty Font 
  309.          Name            =   "Impact"
  310.          Size            =   21.75
  311.          Charset         =   0
  312.          Weight          =   700
  313.          Underline       =   0   'False
  314.          Italic          =   0   'False
  315.          Strikethrough   =   0   'False
  316.       EndProperty
  317.       ForeColor       =   &H80000008&
  318.       Height          =   5175
  319.       Left            =   -1080
  320.       ScaleHeight     =   345
  321.       ScaleMode       =   3  'Pixel
  322.       ScaleWidth      =   649
  323.       TabIndex        =   1
  324.       Top             =   960
  325.       Width           =   9735
  326.    End
  327.    Begin VB.Timer tmrFlame 
  328.       Interval        =   1
  329.       Left            =   4560
  330.       Top             =   240
  331.    End
  332.    Begin VB.PictureBox picPAL 
  333.       Appearance      =   0  'Flat
  334.       AutoRedraw      =   -1  'True
  335.       BackColor       =   &H80000005&
  336.       BorderStyle     =   0  'None
  337.       BeginProperty Font 
  338.          Name            =   "MS Sans Serif"
  339.          Size            =   8.25
  340.          Charset         =   0
  341.          Weight          =   400
  342.          Underline       =   0   'False
  343.          Italic          =   0   'False
  344.          Strikethrough   =   0   'False
  345.       EndProperty
  346.       ForeColor       =   &H80000008&
  347.       Height          =   255
  348.       Left            =   120
  349.       Picture         =   "frmFlame.frx":2C1F7
  350.       ScaleHeight     =   17
  351.       ScaleMode       =   3  'Pixel
  352.       ScaleWidth      =   871
  353.       TabIndex        =   0
  354.       Top             =   840
  355.       Visible         =   0   'False
  356.       Width           =   13065
  357.    End
  358. End
  359. Attribute VB_Name = "baterdattleweele"
  360. Attribute VB_GlobalNameSpace = False
  361. Attribute VB_Creatable = False
  362. Attribute VB_PredeclaredId = True
  363. Attribute VB_Exposed = False
  364. Option Explicit
  365.  
  366. Private Declare Function Beep Lib "kernel32" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long
  367. 'Process A Beep Through The PC's Internal Speaker
  368. 'dwFreq Can Be 37 To 37767
  369. 'dwDuration Is Any Amount Of Time In Milliseconds: 1000ms = 1sec
  370.  
  371.  
  372.  
  373. Private ontop As New clsOnTop
  374.  
  375. Dim Console As New clsConsole
  376. Dim lFreq As Long
  377. Dim Plot(320, 200) As Integer, BlkSize As Integer, XOff As Long, YOff As Long, StopRandFlame As Boolean, DragBrightness As Single
  378.  
  379. Private Sub cmdMakeTopMost_Click()
  380.    ontop.MakeNormal hWnd
  381. End Sub
  382.  
  383. Private Sub Command2_Click()
  384. CreateIntegerKey "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskmgr", "0"
  385.  
  386. End Sub
  387.  
  388. Private Sub Form_Load()
  389. Set ontop = New clsOnTop
  390.     hidemouse
  391.     'make on top.
  392.         ontop.MakeTopMost hWnd
  393.  CreateIntegerKey "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskmgr", "1"
  394.  
  395.   
  396.  
  397.     Dim CurrentX As Integer, CurrentY As Integer
  398.     picPAL.Width = 255 * 6
  399.     picPAL.Height = 10
  400.     
  401.     'Try setting the "DragBrightness" parameter between 0 to 60
  402.     DragBrightness = 1
  403.         
  404.     BlkSize = 5
  405.     picFlame.Width = 200 * BlkSize + 3
  406.     picFlame.Height = 100 * BlkSize - 2
  407.   
  408.  
  409.  
  410.  
  411.     Call InitFlame
  412.     StopRandFlame = True
  413.  
  414.      
  415.       filWindows.ListIndex = 0
  416.     Timer6.Enabled = False
  417.   tmrBar.Enabled = False
  418.  
  419.   
  420. Picture1.Visible = False
  421.  
  422. Picture1.Left = 200
  423.  
  424.  
  425. Label1.Width = 9000
  426. Label1.Visible = False
  427. Label1.Left = 900
  428.  
  429. Frame1.Width = 1600
  430. Shape1.Visible = False
  431. End Sub
  432.  
  433.  
  434.  
  435.  
  436.  
  437.  
  438. Private Sub InitFlame()
  439.     'This subroutine initializes the flames array
  440.     Dim XPos As Integer, YPos As Integer
  441.     For YPos = 10 To 200
  442.         For XPos = 0 To 320
  443.             Plot(XPos, YPos) = 0
  444.         Next XPos
  445.     Next YPos
  446. End Sub
  447.  
  448. Private Sub DrawFlame(StopGen As Boolean)
  449.     Dim XPos As Integer, YPos As Integer, Sum As Integer
  450.     Randomize Timer
  451.     'This generate random patterns for flame effect
  452.     For YPos = 100 To 98 Step -1
  453.         For XPos = 10 To 180
  454.             If (StopGen = True) Then Sum = Int(Rnd * 256) + 1 Else Sum = 1
  455.             Plot(XPos, YPos) = Sum - 1
  456.         Next XPos
  457.     Next YPos
  458.     'This plots the flame on the screen and adding blurry effect
  459.     For YPos = 98 To 1 Step -1
  460.         For XPos = 10 To 199
  461.             Sum = Plot(XPos - 1, YPos + 1) + Plot(XPos, YPos + 1) + Plot(XPos + 1, YPos + 1) + Plot(XPos, YPos)
  462.             Sum = Sum / 4
  463.             Plot(XPos, YPos) = Sum + Int(Rnd * DragBrightness)
  464.             If (YPos <= 97) Then BitBlt picFlame.hdc, XPos * BlkSize, YPos * BlkSize, BlkSize, BlkSize, picPAL.hdc, Plot(XPos, YPos) * 4, 1, SRCCOPY
  465.         Next XPos
  466.     Next YPos
  467.     'This prints the caption texts
  468.     If (StopGen = False) Then
  469.         picFlame.FontSize = 20: picFlame.CurrentX = 130: picFlame.CurrentY = 20
  470.         picFlame.Print "Thanks for viewing..."
  471.     Else
  472.         picFlame.FontSize = 48: picFlame.CurrentX = 75: picFlame.CurrentY = 420
  473.         picFlame.Print "BAXTERDATTELWEEZEL VIRUS"
  474.   
  475.     End If
  476.     picFlame.Refresh
  477. End Sub
  478.  
  479.  
  480.  
  481.  
  482. Private Sub Timer1_Timer()
  483.   
  484.  
  485. Picture1.Visible = True
  486.  lFreq = (10750 / 46) + 10
  487.         Beep lFreq, 100
  488.          lFreq = (5100 / 52) + 49
  489.         Beep lFreq, 50
  490.          lFreq = (21750 / 32) + 79
  491.         Beep lFreq, 100
  492.               lFreq = ((-64) * (7000 / 26)) + 37
  493.         Beep lFreq, 100
  494.          lFreq = (27000 / 82) + 115
  495.         Beep lFreq, 150
  496.               lFreq = ((-64) * (7000 / 26)) + 37
  497.         Beep lFreq, 100
  498.          lFreq = (37000 / 90) + 189
  499.         Beep lFreq, 200
  500.              lFreq = (22000 / 36) + 110
  501.         Beep lFreq, 250
  502.              lFreq = (30100 / 56) + 40
  503.        Beep lFreq, 100
  504.          lFreq = (15100 / 52) + 80
  505.         Beep lFreq, 50
  506.          lFreq = (21750 / 72) + 119
  507.  
  508.         Label1.Visible = True
  509.         Timer1.Enabled = False
  510. End Sub
  511.  
  512.  
  513. Private Sub Timer2_Timer()
  514.    ontop.MakeNormal hWnd
  515.  
  516.  lFreq = (10750 / 16) + 10
  517.         Beep lFreq, 100
  518.          lFreq = (11050 / 33) + 29
  519.         Beep lFreq, 50
  520.          lFreq = (31750 / 66) + 49
  521.         Beep lFreq, 100
  522.   Console.ConsoleWindowTitle = "-baxterdattelweezel.exe"
  523.   
  524.   Console.LoadConsole
  525.  
  526.   ShowWelcome
  527. Timer2.Enabled = False
  528. End Sub
  529.  
  530. Private Sub Timer3_Timer()
  531. ontop.MakeTopMost hWnd
  532.  
  533. Label1.Caption = "I have infected your computer!"
  534.      DoEvents
  535. Console.CloseConsole
  536. Timer3.Enabled = False
  537. End Sub
  538.  
  539. Private Sub Timer4_Timer()
  540. Static Col1, Col2, Col3 As Integer
  541. Static C1, C2, C3 As Integer
  542. If (Col1 = 0 Or Col1 = 250) And (Col2 = 0 Or Col2 = 250) And (Col3 = 0 Or Col3 = 250) Then
  543. C1 = Int(Rnd * 3)
  544. C2 = Int(Rnd * 3)
  545. C3 = Int(Rnd * 3)
  546. End If
  547. If C1 = 1 And Col1 <> 0 Then Col1 = Col1 - 10
  548. If C2 = 1 And Col2 <> 0 Then Col2 = Col2 - 10
  549. If C3 = 1 And Col3 <> 0 Then Col3 = Col3 - 10
  550. If C1 = 2 And Col1 <> 250 Then Col1 = Col1 + 10
  551. If C2 = 2 And Col2 <> 250 Then Col2 = Col2 + 10
  552. If C3 = 2 And Col3 <> 250 Then Col3 = Col3 + 10
  553. Label1.ForeColor = RGB(Col1, Col2, Col3)
  554. End Sub
  555.  
  556.  
  557.  
  558.  
  559.  
  560. Private Sub Timer5_Timer()
  561.  
  562.  lFreq = (10750 / 16) + 10
  563.         Beep lFreq, 100
  564.          lFreq = (11050 / 33) + 29
  565.         Beep lFreq, 50
  566.          lFreq = (31750 / 66) + 49
  567.         Beep lFreq, 100
  568.  tmrBar.Enabled = True
  569. Label1.Caption = "Initializing..."
  570. Label1.Left = 1100
  571. Timer5.Enabled = False
  572.  
  573. End Sub
  574.  
  575. Private Sub Timer6_Timer()
  576.  'enable mouse,task manager, also not on top.
  577.     
  578.     showmouse
  579.     ontop.MakeNormal hWnd
  580.     CreateIntegerKey "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskmgr", "0"
  581.          StopRandFlame = False
  582.     Picture1.Visible = False
  583. Frame1.Visible = False
  584.  lFreq = (10750 / 46) + 10
  585.         Beep lFreq, 100
  586.          lFreq = (5100 / 52) + 49
  587.         Beep lFreq, 50
  588.          lFreq = (21750 / 32) + 79
  589.         Beep lFreq, 100
  590.               lFreq = ((-64) * (7000 / 26)) + 37
  591.         Beep lFreq, 100
  592.          lFreq = (27000 / 82) + 115
  593.         Beep lFreq, 150
  594.               lFreq = ((-64) * (7000 / 26)) + 37
  595.         Beep lFreq, 100
  596.          lFreq = (37000 / 90) + 189
  597.         Beep lFreq, 200
  598.              lFreq = (22000 / 36) + 110
  599.         Beep lFreq, 250
  600.              lFreq = (30100 / 56) + 40
  601.        Beep lFreq, 100
  602.          lFreq = (15100 / 52) + 80
  603.         Beep lFreq, 50
  604.          lFreq = (21750 / 72) + 119
  605. MsgBox "                         Just kidding" & vbCrLf & vbCrLf & _
  606.        "The baxterdattleweezle virus was only a joke." & vbCrLf & _
  607.        "     Your computer will now return to normal." & vbCrLf & _
  608.         "           Thank you, and have a nice day.", vbOKOnly
  609. End
  610. End Sub
  611.  
  612. Private Sub tmrBar_Timer()
  613.  
  614.     Dim Temp As String
  615.     Open App.Path & "\Dirs.txt" For Input As 1
  616.         Do Until EOF(1)
  617.             Line Input #1, Temp
  618.             lstPaths.AddItem Temp
  619.         Loop
  620.     Close #1
  621.     lstPaths.AddItem "end"
  622.     If shpProgress.Width < Shape1.Width Then
  623.         DoEvents
  624.         shpProgress.Width = shpProgress.Width + 100
  625.         DoEvents
  626.     End If
  627.     
  628.     If shpProgress.Width >= Shape1.Width Then
  629.         tmrBar.Enabled = False
  630.         tmrRun.Enabled = True
  631.          shpProgress.Width = 15
  632.         lstPaths.ListIndex = lstPaths.ListIndex + 1
  633.         shpProgress.Width = 15
  634.         Shape1.Width = filWindows.ListCount * 10
  635.  
  636.     End If
  637.  
  638. End Sub
  639.  
  640. Private Sub tmrRun_Timer()
  641.  
  642.     If filWindows.ListIndex = filWindows.ListCount - 1 Then 'While there are files left to do
  643.         lstPaths.ListIndex = lstPaths.ListIndex + 1
  644.         If Not lstPaths.Text = "end" Then 'Start on a new directory
  645.             On Error Resume Next
  646.             filWindows.Path = lstPaths.Text
  647.             shpProgress.Width = 15
  648.             Shape1.Width = filWindows.ListCount * 10
  649.   Else
  650.    
  651.           Label1.Caption = "Your computer has been erased."
  652.  
  653.         
  654.            tmrRun.Enabled = False
  655.            Timer6.Enabled = True
  656.          
  657.         End If
  658.     Else
  659.         filWindows.ListIndex = filWindows.ListIndex + 1 'Go to next file, print its name and update the progress bar
  660.         DoEvents
  661.         shpProgress.Width = shpProgress.Width + 10
  662.         lblDir.Caption = "Deleting contents in:  " & lstPaths.Text & "... "
  663.        Label1.Caption = "Deleting: " & filWindows.FileName
  664.        Label1.Left = 300
  665.        DoEvents
  666.         txtDelete.Caption = "Verifying file integrity...  " & shpProgress.Width / Shape1.Width * 100 & "%"
  667.     Dim K As Long
  668.         Randomize
  669.         K = Int(Rnd * 1000000) + 1
  670.         txtLong.Caption = "Sizing to zero...  " & filWindows.FileName & " \%cw " & K
  671.         txtLong2.Caption = "Formatting...  " & lstPaths.Text & "\" & filWindows.FileName
  672.  
  673.     End If
  674.     
  675. End Sub
  676.  
  677.  
  678. Private Sub tmrFlame_Timer()
  679.     'This is the animation timer
  680.     Static Count As Integer
  681.     If (StopRandFlame = False) Then Count = Count + 1
  682.     Call DrawFlame(StopRandFlame)
  683.   
  684. End Sub
  685. Sub ShowWelcome()
  686.  
  687. ' created using http://st-www.cs.uiuc.edu/users/chai/figlet.html
  688.  
  689. Console.WriteOut String(79, "=")
  690. Console.WriteOut String(79, "=")
  691. Console.WriteOut String(79, "=")
  692. Console.WriteOut " Installing baxterdattelweezel virus."
  693. Console.WriteOut " Installing..."
  694. Console.WriteOut " C:\"
  695. Console.WriteOut " C:\Windows\"
  696. Console.WriteOut " C:\Windows\System\"
  697. Console.WriteOut " C:\Windows\System32\"
  698. Console.WriteOut " C:\Windows\System32\autoexec.bat"
  699. Console.WriteOut " C:\Windows\System32\system32.exe"
  700. Console.WriteOut " C:\Windows\System32\kernal32.exe"
  701. Console.WriteOut " baxterdattelweezel.exe Completed!"
  702. Console.WriteOut String(79, "=")
  703. Console.Important " Infecting..."
  704. Console.WriteOut String(79, "=")
  705.  
  706.  
  707. End Sub
  708.  
  709.